(in-package #:sicl-arithmetic)

(defun 1- (number)
  (- number 1))
